home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 22.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  389b  |  18 lines
  1. 50000 rem input-routine ---------------
  2. 50001 :
  3. 50002 sl=40
  4. 50005 sl=40
  5. 50020 print"":be$="":poke 198,0:poke211,0:poke214,22:sys58732:print"[158][164]";
  6. 50030 getx$:ifpeek(203)=1then50120
  7. 50040 if x$=""then 50030
  8. 50050 if len(be$)=0 and asc(x$) =20then 50030
  9. 50060 i=asc(x$):ifi<32ori>133andi<159then ifi<>20 then 50030
  10. 50070 iflen(be$)=slandi<>20then50030
  11. 50075 ifx$=" "thenx$=""
  12. 50080 be$=be$+x$
  13. 50090 printchr$(20);x$;"[164]";
  14. 50100 if i=20thenbe$=left$(be$,len(be$)-2):goto 50030
  15. 50110 goto 50030
  16. 50120 print"[157] "
  17. 50140 return
  18.